Example 8 - Create JPG bitmaps

This example shows how to create a JPG picture of a schedule.

Public Sub CreateJPGBitmaps()

Set objMilestones = CreateObject("Milestones")

With objMilestones

.SetStartAndEndDates "1/1/2022","2/22/2023"

.AddTaskUsingDuration 1, "7/12/2022", 2, 5, 2, 2, 65, "Day", 12, 0, "Create Using Days"

.AddTaskUsingDuration 2, "9/11/2022", 2, 5, 2, 2, 65, "Day", 12, 0, "Create Using Days"

.SaveBitmap "c:\example8.jpg"

End With

Exit Sub

End Sub